home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2010 April / PCWorld0410.iso / hity wydania / GIMP 2.6.8 / gimp-2.6.8-i686-setup.exe / {app} / share / gimp / 2.0 / scripts / guides-new.scm < prev    next >
Text File  |  2009-12-15  |  1KB  |  41 lines
  1. ;; -*-scheme-*-
  2.  
  3. ;; Alan Horkan 2004.  Public Domain.
  4. ;; so long as remove this block of comments from your script
  5. ;; feel free to use it for whatever you like.
  6.  
  7. (define (script-fu-guide-new image
  8.                              drawable
  9.                              direction
  10.                              position)
  11.   (let* (
  12.         (width (car (gimp-image-width image)))
  13.         (height (car (gimp-image-height image)))
  14.         )
  15.  
  16.     (if (= direction 0)
  17.         ;; check position is inside the image boundaries
  18.         (if (<= position height) (gimp-image-add-hguide image position))
  19.         (if (<= position width) (gimp-image-add-vguide image position))
  20.     )
  21.  
  22.     (gimp-displays-flush)
  23.   )
  24. )
  25.  
  26. (script-fu-register "script-fu-guide-new"
  27.   _"New _Guide..."
  28.   _"Add a guide at the orientation and position specified (in pixels)"
  29.   "Alan Horkan"
  30.   "Alan Horkan, 2004.  Public Domain."
  31.   "2004-04-02"
  32.   "*"
  33.   SF-IMAGE      "Image"      0
  34.   SF-DRAWABLE   "Drawable"   0
  35.   SF-OPTION     _"Direction" '(_"Horizontal" _"Vertical")
  36.   SF-ADJUSTMENT _"Position"  (list 0 0 MAX-IMAGE-SIZE 1 10 0 1)
  37. )
  38.  
  39. (script-fu-menu-register "script-fu-guide-new"
  40.                          "<Image>/Image/Guides")
  41.